home *** CD-ROM | disk | FTP | other *** search
/ OctaMED Sound Studio 1 / OctaMED SoundStudio V1.iso / docs / rexx / shrink.omed < prev    next >
Text File  |  1996-06-18  |  349b  |  15 lines
  1. /* Shrink Track */
  2. 'ed_getnumlines var numlines'
  3. 'ed_getcurrline var currline'
  4. if currline=numlines-1 then do; 'ed_goto line' 0; leave; end
  5. keepline=currline
  6. 'op_update off'
  7. do forever
  8.     'ed_advanceline down' 
  9.     'ed_deletenote'
  10.     currline=currline+1
  11.     if currline>=numlines-1 then leave
  12. end
  13. 'ed_goto line' keepline
  14. 'op_update on'
  15. wi_showstring "Shrunk."